home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / DATATION / MAILCALL.LZH / DIALME.BAS next >
BASIC Source File  |  1988-10-16  |  2KB  |  54 lines
  1. 1 REM This BASIC program lets you experiment with different dialing configurations -
  2. 2 REM   to see which will work best with Mail Call.  Later, configure MC.
  3. 3 REM Modems need 1 - 3 'strings' to Initialize, Dial and Hang up.  (Initialize
  4. 4 REM   isn't needed on all modems).  Experiment by changing these 3 strings ::
  5. 5 REM   ModInit$, ModDial$, and ModHangUp$   (Find these on Lines 15-17)
  6. 6 REM         << SEE LINES 35-45 ::: QuickBASIC or BASIC >>
  7. 7 REM You'll be asked:  "Which Com port?"   Answer 1, 2, 3 or 4.  BE CAREFUL
  8. 8 REM You'll be asked:  "Dial which Phone #?"  Be sure to enter 7 digits.
  9. 9 REM
  10. 10 DEFINT A-Z: CLS : LOCATE 8, 1
  11. 11 REM
  12. 12 REM '........change the next 3 strings as needed
  13. 13 REM '... Hayes 2400 baud::  One person suggested ModInit$ begin with "ATH1"
  14. 14 REM
  15. 15 INITIALIZE$ = "ATE0 S7=60 S11=55 V1 X1 S0=0!" 'May NOT need INIT.  Ventel modems works w/o init
  16. 16       DIAL$ = "ATDT"
  17. 17     HANGUP$ = "ATH0"                   'Alternate    "~~~+++~~~ATH0!"  
  18. 18 REM
  19. 19 REM ........ now, where's your modem?  what number should I dial?
  20. 20 REM
  21. 21 LINE INPUT ; "Is your modem at COM (Serial) port 1, 2, 3 or 4?  "; P$
  22. 23 PRINT : PRINT
  23. 25 LINE INPUT ; "Dial what phone # (7 digits, try Your Own)  "; PHONENUM$
  24. 26 REM
  25. 27 REM ........ open Com port, and initialize modem
  26. 30 CLOSE #1
  27. 35 REM
  28. 36 REM '......... Use::  Line 40 with QuickBASIC,   Line 45 with BASIC
  29. 37 REM            (For QuickBASIC,  REMOVE  '' on line 40, and PUT '' on 45)
  30. 40 ''OPEN "COM" + P$ + ":300,N,8,1" FOR RANDOM AS #1 LEN = 256  'quickBASIC
  31. 45 OPEN "COM" + P$ + ":300,N,8,1" FOR RANDOM AS #1              'BASIC
  32. 47 REM
  33. 48 REM
  34. 50 B$ = CHR$(13) + CHR$(13) + CHR$(13)
  35. 60 PRINT #1, B$   'suggested by US Robotics (Mike): get modem @ 300 baud
  36. 70 PRINT #1, INITIALIZE$
  37. 75 REM
  38. 77 REM ........ dial the #
  39. 78 REM
  40. 80 PRINT #1, "ATDT" + PHONENUM$
  41. 83 REM
  42. 84 REM ........ wait for a key stroke before handing up
  43. 85 REM
  44. 86 BEEP: PRINT : PRINT "Press a key to hang up . . . ."
  45. 87 B$ = INPUT$(1)
  46. 88 REM
  47. 89 REM ........ hang up
  48. 90 REM
  49. 91 PRINT #1, HANGUP$             'hang up
  50. 98 REM
  51. 99 REM
  52. 100 PRINT #1, "ATZ"          'suggested by US Robotics (Mike) return to orig. Baud
  53.  
  54.